
str = xmlwrite ('C:\Users\zoilo\Desktop\bbdd iam\lineStrokes-all\lineStrokes\a01\a01-001\a01-001z-02.xml'); % obtenemos una variable caracter%
pos= (findstr(str, '"'));   %busco todas las comillas%
pos_pizarra=[];
for i=1:2:7
    cadena=str((pos(10+i)+1):(pos(10+i+1)-1));
    pos_pizarra=[pos_pizarra str2double(cadena)];
end
filas=abs(pos_pizarra(2)-pos_pizarra(4));
menorfila=min(pos_pizarra(2),pos_pizarra(4));
columnas=abs(pos_pizarra(1)-pos_pizarra(3));
menorcolumna=min(pos_pizarra(1),pos_pizarra(3));
x=ones(filas,columnas);

pos2=(findstr(str, '<Stroke colour='));
for i=1:length(pos2)-1
    valores=pos(find(pos(:)>pos2(i)));
    valores2=valores(find(valores(:)<pos2(i+1)));
    clear valores
    valores=valores2(7:end);
    for s=1:6:length(valores)-6
        cadenax=str((valores(s)+1):(valores(s+1)-1));
        cadenay=str((valores(s+2)+1):(valores(s+3)-1));
        numx=abs(str2double(cadenax)-menorcolumna+1);
        numy=abs(str2double(cadenay)-menorfila+1);
        x(numy,numx)=0;
    end
    clear valores valores2
end

